10 REM PROGRAM TO WATCH THE JOYSTICK PORTS
15 REM SOURCE: CREATIVE COMPUTING [APRIL 1982] PAGE 321
20 REM AUTHOR: Will Fastie - 23 DEC 81
25 REM EDITED BY: David Reussow
30 KEY OFF: CLS: STRIG ON
40 F$="#### ####   ##     #### ####   ##"
50 LOCATE 8,1: PRINT "   JOYSTICK A         JOYSTICK B"
60 PRINT "   X    Y    T        X    Y    T"
70 AX=STICK(0): AY=STICK(1): AT=STRIG(0) OR STRIG(1)
80 BX=STICK(2): BY=STICK(3): BT=STRIG(2) OR STRIG(3)
90 LOCATE 10,1: PRINT USING F$;AX,AY,AT,BX,BY,BT
100 GOTO 70
STRIG(1)
80 BX=STICK(2): BY=STICK(3): BT=STRIG(2) OR STRIG(3)
90 LOCATE 10,1: PRINT USING F$;AX,AY,AT,BX,BY,BT
100 GOT